home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 5 NO 5.st / hidorama / hidorama.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1988-01-01  |  16.3 KB  |  744 lines
  1. ' ******************************************************************************
  2. ' *                                                                            *
  3. ' *                               Hide-O-Rama                                  *
  4. ' *                                                                            *
  5. ' *                         By Greg "Maddog" Knauss                            *
  6. ' *                    Copyright © 1991 Antic Publishing                       *
  7. ' *                                                                            *
  8. ' ******************************************************************************
  9. '
  10. ' Do doese DIMs dere...
  11. '
  12. DIM file$(9),filename$(999),file_len%(999),attribute|(999)
  13. DIM seconds|(999),minutes|(999),hours|(999)
  14. DIM day|(999),month|(999),year|(999)
  15. '
  16. ' GEM defines
  17. '
  18. LET dolores&=0 !RSC_TREE
  19. LET title&=2 !Obj in #0
  20. LET hidden&=5 !Obj in #0
  21. LET system&=6 !Obj in #0
  22. LET protect&=7 !Obj in #0
  23. LET fileback&=9 !Obj in #0
  24. LET file1&=10 !Obj in #0
  25. LET file2&=11 !Obj in #0
  26. LET file3&=12 !Obj in #0
  27. LET file4&=13 !Obj in #0
  28. LET file5&=14 !Obj in #0
  29. LET file6&=15 !Obj in #0
  30. LET file7&=16 !Obj in #0
  31. LET file8&=17 !Obj in #0
  32. LET file9&=18 !Obj in #0
  33. LET upbutton&=19 !Obj in #0
  34. LET drivea&=21 !Obj in #0
  35. LET driveb&=22 !Obj in #0
  36. LET drivec&=23 !Obj in #0
  37. LET drived&=24 !Obj in #0
  38. LET drivee&=25 !Obj in #0
  39. LET drivef&=26 !Obj in #0
  40. LET driveg&=27 !Obj in #0
  41. LET driveh&=28 !Obj in #0
  42. LET drivei&=29 !Obj in #0
  43. LET drivej&=30 !Obj in #0
  44. LET drivek&=31 !Obj in #0
  45. LET drivel&=32 !Obj in #0
  46. LET drivem&=33 !Obj in #0
  47. LET driven&=34 !Obj in #0
  48. LET driveo&=35 !Obj in #0
  49. LET drivep&=36 !Obj in #0
  50. LET track&=37 !Obj in #0
  51. LET slider&=38 !Obj in #0
  52. LET reread&=39 !Obj in #0
  53. LET close&=40 !Obj in #0
  54. LET dnbutton&=41 !Obj in #0
  55. LET quit&=42 !Obj in #0
  56. LET pathback&=43 !Obj in #0
  57. LET path&=44 !Obj in #0
  58. '
  59. ' Filetype defines
  60. '
  61. type_protect%=0
  62. type_hidden%=1
  63. type_system%=2
  64. type_diskname%=3
  65. type_folder%=4
  66. type_archive%=5
  67. '
  68. ' GEM OB_STATE or OB_FLAGS defines
  69. '
  70. LET selected%=0
  71. LET disabled%=3
  72. LET touchexit%=6
  73. '
  74. ' Do the dialog stuff **********************************************************
  75. '
  76. ' Load up the resource file and do it's all set up
  77. '
  78. IF RSRC_LOAD("HIDORAMA.RSC")=FALSE THEN
  79.   ALERT 3," | Couldn't load HIDORAMA.RSC! | ",1," Cancel ",dummy%
  80.   EDIT
  81. ENDIF
  82. VOID RSRC_GADDR(0,0,tree%)
  83. VOID FORM_CENTER(tree%,x%,y%,w%,h%)
  84. '
  85. ' Determine the active drives 'n set 'em
  86. '
  87. drives%=BIOS(10)
  88. FOR i%=0 TO 15
  89.   IF BTST(drives%,i%)=FALSE THEN
  90.     object_state(drivea&+i%,disabled%,TRUE,FALSE)
  91.   ENDIF
  92. NEXT i%
  93. '
  94. ' Turn the current drive button on and show its path
  95. '
  96. path$=CHR$(GEMDOS(25)+65)+":"+DIR$(GEMDOS(25)+1)
  97. object_state(GEMDOS(25)+drivea&,selected%,TRUE,FALSE)
  98. new_path(FALSE)
  99. '
  100. ' Get the directory
  101. '
  102. new_dir(FALSE)
  103. '
  104. ' Draw the dialog
  105. '
  106. VOID OBJC_DRAW(tree%,0,2,x%,y%,w%,h%)
  107. '
  108. ' Maken dur mousen un punter
  109. '
  110. DEFMOUSE 0
  111. '
  112. ' ******************************************************************************
  113. ' Main loop
  114. ' ******************************************************************************
  115. '
  116. DO
  117.   '
  118.   ' Get what GEM returns
  119.   '
  120.   old_input%=input%
  121.   input%=FORM_DO(tree%,0)
  122.   '
  123.   ' Change drive ***************************************************************
  124.   '
  125.   IF input%>=drivea& AND input%<=drivep& THEN
  126.     '
  127.     ' Show the new drive
  128.     '
  129.     path$=CHR$(input%-drivea&+65)+":"+DIR$(input%-drivea&+1)
  130.     new_path(TRUE)
  131.     '
  132.     ' Get the new directory
  133.     '
  134.     '    object_draw(fileback&)
  135.     new_dir(TRUE)
  136.   ELSE IF input%>=file1& AND input%<=file9& AND old_input%<>input%
  137.     '
  138.     ' Name action **************************************************************
  139.     '
  140.     file%=first%+input%-file1&
  141.     attributes%=attribute|(file%)
  142.     '
  143.     ' Folder
  144.     '
  145.     IF BTST(attribute|(file%),type_folder%)=TRUE THEN
  146.       '
  147.       ' Get new path
  148.       '
  149.       path$=path$+"\"+filename$(file%)
  150.       new_path(TRUE)
  151.       '
  152.       ' Redraw the files
  153.       '
  154.       '      object_draw(fileback&)
  155.       new_dir(TRUE)
  156.     ELSE
  157.       '
  158.       ' Filename
  159.       '
  160.       ' If the buttons at the top are disabled, turn them all on
  161.       '
  162.       IF BTST(OB_STATE(tree%,hidden&),disabled%)=TRUE THEN
  163.         object_flags(hidden&,touchexit%,TRUE,FALSE)
  164.         object_flags(system&,touchexit%,TRUE,FALSE)
  165.         object_flags(protect&,touchexit%,TRUE,FALSE)
  166.         object_state(hidden&,disabled%,FALSE,FALSE)
  167.         object_state(system&,disabled%,FALSE,FALSE)
  168.         object_state(protect&,disabled%,FALSE,FALSE)
  169.         object_state(hidden&,selected%,BTST(attributes%,type_hidden%),TRUE)
  170.         object_state(system&,selected%,BTST(attributes%,type_system%),TRUE)
  171.         object_state(protect&,selected%,BTST(attributes%,type_protect%),TRUE)
  172.       ELSE
  173.         '
  174.         ' Turn each button on as need be
  175.         '
  176.         IF BTST(OB_STATE(tree%,hidden&),selected%)<>BTST(attributes%,type_hidden%) THEN
  177.           object_state(hidden&,selected%,BTST(attributes%,type_hidden%),TRUE)
  178.         ENDIF
  179.         IF BTST(OB_STATE(tree%,system&),selected%)<>BTST(attributes%,type_system%) THEN
  180.           object_state(system&,selected%,BTST(attributes%,type_system%),TRUE)
  181.         ENDIF
  182.         IF BTST(OB_STATE(tree%,protect&),selected%)<>BTST(attributes%,type_protect%) THEN
  183.           object_state(protect&,selected%,BTST(attributes%,type_protect%),TRUE)
  184.         ENDIF
  185.       ENDIF
  186.     ENDIF
  187.   ELSE IF input%=close&
  188.     '
  189.     ' Close button *************************************************************
  190.     '
  191.     ' Turn the button off
  192.     '
  193.     object_state(close&,selected%,FALSE,TRUE)
  194.     '
  195.     ' Get the new path
  196.     '
  197.     IF LEN(path$)>2 THEN
  198.       '
  199.       ' Show the new path
  200.       '
  201.       path$=LEFT$(path$,RINSTR(path$,"\")-1)
  202.       new_path(TRUE)
  203.       '
  204.       ' Redraw the filenames
  205.       '
  206.       '      object_draw(fileback&)
  207.       new_dir(TRUE)
  208.     ENDIF
  209.   ELSE IF input%=reread&
  210.     '
  211.     ' Reread bar ***************************************************************
  212.     '
  213.     '    object_draw(fileback&)
  214.     new_dir(TRUE)
  215.   ELSE IF input%=title&
  216.     '
  217.     ' Title bar ****************************************************************
  218.     '
  219.     ALERT 1," | Formerly D.O.L.O.R.E.S. | ",1,"  OK  ",dummy%
  220.   ELSE IF input%=upbutton&
  221.     '
  222.     ' Up button ****************************************************************
  223.     '
  224.     ' Only move up if we have room
  225.     '
  226.     IF first%>0 THEN
  227.       '
  228.       ' Move the names
  229.       '
  230.       DEC first%
  231.       '
  232.       ' Move the slider position
  233.       '
  234.       SUB slider_y#,slider_step#
  235.       OB_Y(tree%,slider&)=slider_y#
  236.       '
  237.       ' Redraw the names
  238.       '
  239.       show_dir(TRUE)
  240.     ENDIF
  241.   ELSE IF input%=dnbutton&
  242.     '
  243.     ' Down button **************************************************************
  244.     '
  245.     ' Only move if we have room
  246.     '
  247.     IF first%<num_of_files%-8 THEN
  248.       '
  249.       ' Move down one
  250.       '
  251.       INC first%
  252.       '
  253.       ' Move the slider
  254.       '
  255.       ADD slider_y#,slider_step#
  256.       OB_Y(tree%,slider&)=slider_y#
  257.       '
  258.       ' Redraw the names
  259.       '
  260.       show_dir(TRUE)
  261.     ENDIF
  262.   ELSE IF input%=track&
  263.     '
  264.     ' Slider track *************************************************************
  265.     '
  266.     ' Click up a screen
  267.     '
  268.     IF MOUSEY<=@y(slider&)+@y(track&)+@y(dolores&) THEN
  269.       '
  270.       ' Move up a screen
  271.       '
  272.       SUB first%,8
  273.       IF first%<0 THEN
  274.         first%=0
  275.       ENDIF
  276.       '
  277.       ' Reposition the slider
  278.       '
  279.       SUB slider_y#,slider_step#*8
  280.       IF slider_y#<0 THEN
  281.         slider_y#=0
  282.       ENDIF
  283.       OB_Y(tree%,slider&)=slider_y#
  284.       '
  285.       ' Redraw the filenames
  286.       '
  287.       show_dir(TRUE)
  288.     ELSE
  289.       '
  290.       ' Move down a screen
  291.       '
  292.       ADD first%,8
  293.       IF first%>num_of_files%-8 THEN
  294.         first%=num_of_files%-8
  295.       ENDIF
  296.       '
  297.       ' Reposition the slider
  298.       '
  299.       ADD slider_y#,slider_step#*8
  300.       IF slider_y#>@h(track&)-@h(slider&) THEN
  301.         slider_y#=@h(track&)-@h(slider&)
  302.       ENDIF
  303.       OB_Y(tree%,slider&)=slider_y#
  304.       '
  305.       ' Redraw the filenames
  306.       '
  307.       show_dir(TRUE)
  308.     ENDIF
  309.   ELSE IF input%=slider& AND num_of_files%>8
  310.     '
  311.     ' Slider *******************************************************************
  312.     '
  313.     ' Let GEM move the slider
  314.     '
  315.     VOID GRAF_DRAGBOX(@w(slider&),@h(slider&),@h(slider&),@y(slider&)+@y(track&)+@y(dolores&),@x(track&)+@x(dolores&),@y(track&)+@y(dolores&),@w(track&),@h(track&),dummy%,slider_y#)
  316.     '
  317.     ' Adjust returned slider position
  318.     '
  319.     slider_y#=slider_y#-@y(track&)-@y(dolores&)
  320.     '
  321.     ' Find which file is now on top
  322.     '
  323.     first%=slider_y#*(num_of_files%-8)/(@h(track&)-@h(slider&))
  324.     '
  325.     ' Readjust the slider
  326.     '
  327.     slider_y#=first%*(@h(track&)-@h(slider&))/(num_of_files%-8)
  328.     OB_Y(tree%,slider&)=slider_y#
  329.     '
  330.     ' Redraw the files
  331.     '
  332.     show_dir(TRUE)
  333.   ELSE IF input%=quit&
  334.     '
  335.     ' Quit *********************************************************************
  336.     '
  337.     ' Free up the resource
  338.     '
  339.     VOID RSRC_FREE()
  340.     '
  341.     ' And out
  342.     '
  343.     EDIT
  344.   ELSE IF input%=hidden&
  345.     '
  346.     ' Hidden *******************************************************************
  347.     '
  348.     ' Change the attribute
  349.     '
  350.     change_attribute(type_hidden%,hidden&)
  351.   ELSE IF input%=system&
  352.     '
  353.     ' System *******************************************************************
  354.     '
  355.     ' Flip the attribute
  356.     '
  357.     change_attribute(type_system%,system&)
  358.   ELSE IF input%=protect&
  359.     '
  360.     ' Protect ******************************************************************
  361.     '
  362.     ' Toggle it's setting
  363.     '
  364.     change_attribute(type_protect%,protect&)
  365.   ENDIF
  366. LOOP
  367. '
  368. ' ******************************************************************************
  369. ' Get a new directory
  370. ' ******************************************************************************
  371. '
  372. PROCEDURE new_dir(redraw!)
  373.   '
  374.   ' And move to the new directory
  375.   '
  376.   get_dir(path$+"\*.*")
  377.   '
  378.   ' Show new directory
  379.   '
  380.   input%=0
  381.   first%=0
  382.   show_dir(redraw!)
  383. RETURN
  384. '
  385. ' ******************************************************************************
  386. ' Shows the directory entries
  387. ' ******************************************************************************
  388. '
  389. PROCEDURE show_dir(redraw!)
  390.   '
  391.   ' Turn the buttons off, if'n we need to
  392.   '
  393.   IF BTST(OB_STATE(tree%,hidden&),disabled%)=FALSE THEN
  394.     object_flags(hidden&,touchexit%,FALSE,FALSE)
  395.     object_flags(system&,touchexit%,FALSE,FALSE)
  396.     object_flags(protect&,touchexit%,FALSE,FALSE)
  397.     object_state(hidden&,selected%,FALSE,FALSE)
  398.     object_state(system&,selected%,FALSE,FALSE)
  399.     object_state(protect&,selected%,FALSE,FALSE)
  400.     object_state(hidden&,disabled%,TRUE,redraw!)
  401.     object_state(system&,disabled%,TRUE,redraw!)
  402.     object_state(protect&,disabled%,TRUE,redraw!)
  403.   ENDIF
  404.   '
  405.   ' Put the names up
  406.   '
  407.   FOR which%=0 TO 8
  408.     '
  409.     ' Are there enough names to fill up this space?
  410.     '
  411.     IF first%+which%<=num_of_files% THEN
  412.       '
  413.       ' Yep, so set up the name
  414.       '
  415.       dot%=INSTR(filename$(first%+which%),".")
  416.       IF dot%>0 THEN
  417.         file$(which%)=LEFT$("  "+LEFT$(LEFT$(filename$(first%+which%),dot%-1)+"        ",8)+"."+MID$(filename$(first%+which%)+"___",dot%+1,3)+"      ",21)
  418.       ELSE
  419.         file$(which%)="  "+LEFT$(filename$(first%+which%)+"________",8)+".___      "
  420.       ENDIF
  421.       '
  422.       ' Or mark it as a directory
  423.       '
  424.       IF BTST(attribute|(first%+which%),type_folder%)=TRUE THEN
  425.         MID$(file$(which%),1)=CHR$(7)
  426.       ENDIF
  427.       '
  428.       ' Set the appropriate flags
  429.       '
  430.       IF BTST(attribute|(first%+which%),type_hidden%)=TRUE THEN
  431.         MID$(file$(which%),16,1)="H"
  432.       ENDIF
  433.       IF BTST(attribute|(first%+which%),type_system%)=TRUE THEN
  434.         MID$(file$(which%),17,1)="S"
  435.       ENDIF
  436.       IF BTST(attribute|(first%+which%),type_protect%)=TRUE THEN
  437.         MID$(file$(which%),18,1)="P"
  438.       ENDIF
  439.       '
  440.       ' Unset and set stuff
  441.       '
  442.       object_state(file1&+which%,selected%,FALSE,FALSE)
  443.       object_state(file1&+which%,disabled%,FALSE,FALSE)
  444.       object_flags(file1&+which%,touchexit%,TRUE,FALSE)
  445.     ELSE
  446.       '
  447.       ' Dummy space, so blank it out
  448.       '
  449.       object_state(file1&+which%,selected%,FALSE,FALSE)
  450.       object_state(file1&+which%,disabled%,TRUE,FALSE)
  451.       object_flags(file1&+which%,touchexit%,FALSE,FALSE)
  452.       file$(which%)="                      "
  453.     ENDIF
  454.     '
  455.     ' Show the name
  456.     '
  457.     box_text(file1&+which%,file$(which%),redraw!)
  458.   NEXT which%
  459.   '
  460.   ' And re-do the slider
  461.   '
  462.   draw_slider(redraw!)
  463. RETURN
  464. '
  465. ' ******************************************************************************
  466. ' Gets a directory
  467. ' ******************************************************************************
  468. '
  469. PROCEDURE get_dir(a$)
  470.   '
  471.   ' Set number of files
  472.   '
  473.   num_of_files%=-1
  474.   '
  475.   ' Point to the Disk Transfer Address (Where filename comes back) and get
  476.   ' File Not Found/End of Data status
  477.   '
  478.   disk_transfer_address%=FGETDTA()
  479.   status%=FSFIRST(a$,255)
  480.   '
  481.   ' Loop to get filenames
  482.   '
  483.   DO
  484.     '
  485.     ' Out if no more data
  486.     '
  487.     EXIT IF status%<0
  488.     '
  489.     ' We've got another file
  490.     '
  491.     INC num_of_files%
  492.     '
  493.     ' And get filename from memory
  494.     '
  495.     filename$(num_of_files%)=""
  496.     FOR i%=disk_transfer_address%+30 TO disk_transfer_address%+41
  497.       '
  498.       ' Out if this is the end of filename
  499.       '
  500.       EXIT IF PEEK(i%)=0
  501.       '
  502.       ' Add it in
  503.       '
  504.       filename$(num_of_files%)=filename$(num_of_files%)+CHR$(PEEK(i%))
  505.     NEXT i%
  506.     '
  507.     ' Kinda directory is it?
  508.     '
  509.     IF filename$(num_of_files%)="." OR filename$(num_of_files%)=".." THEN
  510.       '
  511.       ' Don't set self or parent directory
  512.       '
  513.       DEC num_of_files%
  514.     ELSE
  515.       '
  516.       ' Get the file's attributes...
  517.       '
  518.       attribute|(num_of_files%)=PEEK(disk_transfer_address%+21)
  519.       '
  520.       ' And ignore it if it's the volume name
  521.       '
  522.       IF BTST(attribute|(num_of_files%),type_diskname%)=TRUE THEN
  523.         DEC num_of_files%
  524.       ELSE
  525.         '
  526.         ' Get the time...
  527.         '
  528.         time%=DPEEK(disk_transfer_address%+22)
  529.         seconds|(num_of_files%)=(time% AND 31)*2
  530.         time%=SHR(time%,5)
  531.         minutes|(num_of_files%)=(time% AND 63)
  532.         time%=SHR(time%,6)
  533.         hours|(num_of_files%)=(time% AND 31)
  534.         '
  535.         ' ...and the date...
  536.         '
  537.         time%=DPEEK(disk_transfer_address%+24)
  538.         day|(num_of_files%)=(time% AND 31)
  539.         time%=SHR(time%,5)
  540.         month|(num_of_files%)=(time% AND 15)
  541.         time%=SHR(time%,4)
  542.         year|(num_of_files%)=(time% AND 127)
  543.         '
  544.         ' ...and the file length
  545.         '
  546.         file_len%(num_of_files%)=DPEEK(disk_transfer_address%+28)
  547.       ENDIF
  548.     ENDIF
  549.     '
  550.     ' Get the status for the next file
  551.     '
  552.     status%=FSNEXT()
  553.     '
  554.     ' 'Round again
  555.     '
  556.   LOOP
  557.   '
  558.   ' And setup the slider
  559.   '
  560.   slider_y#=0
  561.   OB_Y(tree%,slider&)=slider_y#
  562.   '
  563.   ' If there's more than eight files make the slider size proportional
  564.   '
  565.   IF num_of_files%>8 THEN
  566.     '
  567.     ' The size of the slider
  568.     '
  569.     OB_H(tree%,slider&)=9*@h(track&)/(num_of_files%+1)
  570.     '
  571.     ' Set the slider step value
  572.     '
  573.     slider_step#=(@h(track&)-@h(slider&))/(num_of_files%-8)
  574.   ELSE
  575.     '
  576.     ' If there ain't 9 files, make the slider fill the track
  577.     '
  578.     slider_step#=0
  579.     OB_H(tree%,slider&)=@h(track&)
  580.   ENDIF
  581. RETURN
  582. '
  583. ' ******************************************************************************
  584. ' Changes an object's state
  585. ' ******************************************************************************
  586. '
  587. PROCEDURE object_state(object&,bit%,state!,redraw!)
  588.   IF state!=TRUE THEN
  589.     OB_STATE(tree%,object&)=BSET(OB_STATE(tree%,object&),bit%)
  590.   ELSE
  591.     OB_STATE(tree%,object&)=BCLR(OB_STATE(tree%,object&),bit%)
  592.   ENDIF
  593.   IF redraw!=TRUE THEN
  594.     object_draw(object&)
  595.   ENDIF
  596. RETURN
  597. '
  598. ' ******************************************************************************
  599. ' Changes an object's flags
  600. ' ******************************************************************************
  601. '
  602. PROCEDURE object_flags(object&,bit%,state!,redraw!)
  603.   IF state!=TRUE THEN
  604.     OB_FLAGS(tree%,object&)=BSET(OB_FLAGS(tree%,object&),bit%)
  605.   ELSE
  606.     OB_FLAGS(tree%,object&)=BCLR(OB_FLAGS(tree%,object&),bit%)
  607.   ENDIF
  608.   IF redraw!=TRUE THEN
  609.     object_draw(object&)
  610.   ENDIF
  611. RETURN
  612. '
  613. ' ******************************************************************************
  614. ' Changes an object's text
  615. ' ******************************************************************************
  616. '
  617. PROCEDURE object_text(object&,text$,redraw!)
  618.   text$=text$+CHR$(0)
  619.   OB_SPEC(tree%,object&)=V:text$
  620.   IF redraw!=TRUE THEN
  621.     object_draw(object&)
  622.   ENDIF
  623. RETURN
  624. '
  625. ' ******************************************************************************
  626. ' Changes a box's text
  627. ' ******************************************************************************
  628. '
  629. PROCEDURE box_text(object&,text$,redraw!)
  630.   text$=text$+CHR$(0)
  631.   LPOKE OB_SPEC(tree%,object&),V:text$
  632.   IF redraw!=TRUE THEN
  633.     object_draw(object&)
  634.   ENDIF
  635. RETURN
  636. '
  637. ' ******************************************************************************
  638. ' Redraws an object
  639. ' ******************************************************************************
  640. '
  641. PROCEDURE object_draw(object&)
  642.   VOID OBJC_DRAW(tree%,object&,0,x%,y%,w%,h%)
  643. RETURN
  644. '
  645. ' ******************************************************************************
  646. ' Ooo, just skads o' handy routines
  647. ' ******************************************************************************
  648. '
  649. FUNCTION x(object&)
  650.   RETURN OB_X(tree%,object&)
  651. ENDFUNC
  652. '
  653. FUNCTION y(object&)
  654.   RETURN OB_Y(tree%,object&)
  655. ENDFUNC
  656. '
  657. FUNCTION w(object&)
  658.   RETURN OB_W(tree%,object&)
  659. ENDFUNC
  660. '
  661. FUNCTION h(object&)
  662.   RETURN OB_H(tree%,object&)
  663. ENDFUNC
  664. '
  665. ' ******************************************************************************
  666. ' Draws the path name
  667. ' ******************************************************************************
  668. '
  669. PROCEDURE new_path(redraw!)
  670.   short$=path$
  671.   IF LEN(path$)>34 THEN
  672.     short$="..."+RIGHT$(path$,31)
  673.   ENDIF
  674.   IF redraw!=TRUE THEN
  675.     object_draw(pathback&)
  676.   ENDIF
  677.   object_text(path&,short$,redraw!)
  678. RETURN
  679. '
  680. ' ******************************************************************************
  681. ' Draws the slider
  682. ' ******************************************************************************
  683. '
  684. PROCEDURE draw_slider(redraw!)
  685.   IF redraw!=TRUE THEN
  686.     object_draw(track&)
  687.     object_draw(slider&)
  688.   ENDIF
  689. RETURN
  690. '
  691. ' ******************************************************************************
  692. ' Changes a file's attribute, then writes it
  693. ' ******************************************************************************
  694. '
  695. PROCEDURE change_attribute(type%,object&)
  696.   '
  697.   ' Change the attribute
  698.   '
  699.   attribute|(file%)=BCHG(attribute|(file%),type%)
  700.   '
  701.   ' Write it
  702.   '
  703.   file$=path$+"\"+filename$(file%)
  704.   result%=GEMDOS(67,L:V:file$,1,attribute|(file%))
  705.   '
  706.   ' Was there an error?
  707.   '
  708.   IF result%<0 THEN
  709.     '
  710.     ' Yeah, flip the attribute back
  711.     '
  712.     attribute|(file%)=BCHG(attribute|(file%),type%)
  713.   ELSE
  714.     '
  715.     ' Change the button
  716.     '
  717.     OB_STATE(tree%,object&)=BCHG(OB_STATE(tree%,object&),selected%)
  718.     object_draw(object&)
  719.     '
  720.     ' And change the filename flags
  721.     '
  722.     which%=file%-first%
  723.     IF BTST(attribute|(file%),type_hidden%)=TRUE THEN
  724.       MID$(file$(which%),16,1)="H"
  725.     ELSE
  726.       MID$(file$(which%),16,1)=" "
  727.     ENDIF
  728.     IF BTST(attribute|(file%),type_system%)=TRUE THEN
  729.       MID$(file$(which%),17,1)="S"
  730.     ELSE
  731.       MID$(file$(which%),17,1)=" "
  732.     ENDIF
  733.     IF BTST(attribute|(file%),type_protect%)=TRUE THEN
  734.       MID$(file$(which%),18,1)="P"
  735.     ELSE
  736.       MID$(file$(which%),18,1)=" "
  737.     ENDIF
  738.     '
  739.     ' And redraw the filename
  740.     '
  741.     box_text(file1&+which%,file$(which%),TRUE)
  742.   ENDIF
  743. RETURN
  744.